home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL15.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  340 b   |  15 lines
  1.             /* Program 15 */
  2. domains
  3.       name = symbol
  4. predicates
  5.       father(name,name)
  6.       everybody
  7. clauses
  8.       father(leonard,katherine).
  9.       father(carl,jason).
  10.       father(carl,marilyn).
  11.       everybody if
  12.               father(X,Y), 
  13.               write(X," is ",Y,"'s father\n") and      
  14.               fail.
  15.